home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / origami / oribin.zoo / bindings / append.fun < prev    next >
Encoding:
Text File  |  1991-07-09  |  466 b   |  22 lines
  1. {{{  comments
  2. ; append the current line to the previous line and delete all spaces
  3. ; between the lines. Calling this when one of the lines isn't a text-line
  4. ; stops the macro with errormessage ``oops''.
  5. }}}
  6. nodup
  7. {{{  libs
  8. {{{F error.fun
  9. :::F error.fun
  10. }}}
  11. }}}
  12. {{{  append-to-previous-line
  13. (deffun append-to-previous-line (
  14.   if not(test-text) (oops) fi
  15.   O_UP
  16.   if not(test-text) (oops) fi
  17.   O_END_OF_LINE
  18.   O_DEL_CHAR_RIGHT
  19.   delspaces
  20. ))
  21. }}}
  22.